(comment regpdl 10000. specpdl 2000. fxpdl 1000. flpdl 500.)
(progn
 (help)
 (fasload demon fas dsk (aid rpg))
 (fasload hunkp fas dsk (mrs lsp))
 (fasload backq fas dsk (mac lsp))
 (fasload sharpm fas dsk (mac lsp))
 (fasload edit fas dsk (mac lsp))
 (fasload match fas dsk (mac lsp))
 (fasload let fas dsk (mac lsp))
 (fasload defvst fas dsk (mac lsp))
 (fasload setf fas dsk (mac lsp))
 (fasload struct fas dsk (mac lsp))
 (fasload defmac fas dsk (mac lsp))
 (fasload format mit dsk (mac lsp))
 (setq em:no-init t)
 (fasload emaclsp fas dsk (mac lsp))
 (fasload eaid fas dsk (mac lsp))
 (herald "CORLL" "")
 (load '|corll.fas|)
 (herald "MRSREP" "")
 (load '|mrsrep.fas|)
 (herald "MRS" "")
 (load '|mrs.fas|)
 (herald "MRSS" "")
 (load '|mrss.fas|)
 (herald "MRSPL" "")
 (load '|mrspl.fas|)
 (herald "MRSMETA" "")
 (load '|mrsmeta.fas|)
 (herald "MRSLOGIC" "")
 (load '|mrslogic.fas|)
 (herald "MRSDEMON" "")
 (load '|mrsdemon.fas|)
 (grindef)
 (close infile)
 (inpush -1)
 (gc)
 (suspend '|save sys MRS|)
 (cond ((and (not 
	      (equal (setq udir (status udir)) '(mrs lsp)))
	    (setq inifile
		  (probef (append '(mrs ini dsk) (ncons udir)))))
	(load inifile)))
 (cond (si:ecalledp
	(setq -em:herald- ())
	(em:mail-interface-initialize)))
 (terpri)(princ '|MRS!|)(terpri))